home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Icon 8.1 / mep1 / External Functions / Samples / Code Resource Sources / CurResFile.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-11-24  |  488 b   |  23 lines  |  [TEXT/KAHL]
  1. /*
  2.  * ProIcon: Code resource to return the current resource file.
  3.  *
  4.  * This code resource will appear under the resource type 'CODE', ID 1003,
  5.  * name "CurResFile".  Invoke with:
  6.  *
  7.  *      resFile := callout("CODE","CurResFile")
  8.  *
  9.  *      resFile is a simple integer.  The function always succeeds. 
  10.  */
  11.  
  12. #include "ProIcon.h"
  13.  
  14. pascal dptr main(dargv, argc, ip, callback)
  15. dptr dargv;
  16. short int argc;
  17. short int *ip;
  18. pointer (*callback)();
  19. {
  20.    MakeInt(CurResFile(), &Arg0);      
  21.    Return;
  22. }
  23.